0 D=PEEK(186)
1 IFPEEK(828)<>32ORPEEK(838)<>150ORPEEK(848)<>183THENLOAD"INPUT ANY.O",D,1
2 CLR:A$="":DQ=PEEK(186):NS=10:FORA=0TONS-1:READ F$(A):NEXT
3 DATA T.LAST/FIRST,EPTITUDE TEST,ALFREDO'S PP,DISK ERASER,T.JUNK MAIL
4 DATA WIN/LOSE/DRAW,LABYRINTH 101,FOOLS GOLD,T.RANDUMB EVENTS,T.FIRST/LAST
5 V=53248:POKEV+17,27:POKEV+32,14:POKEV+33,14
10 PRINT"[147][204]OADING CONTENTS OF TABLES.
20 [159]15,DQ,15:[159]8,DQ,8,"#":T[178]18
21 [129]I[178]1[164]6
22 [152]15,"U1:8 0"T;.:[139][187](1)[179].9[167]22
23 T[178][181]([187](1)[172]35)[170]1:[130]:[160]8:[160]15
30 [153]"LOADPEEKEFORE ATTEMPTING TO RUN ANY PROGRAMS
31 PRINT"PLEASE REFER TO THE SALES PITCHES IN THE
32 [153]"STR$RIGHT$(null)(null)(null)(null)VAL?'S CHR$AZELLE (null)AGAZINE ISSUE DATED
33 PRINT"THE SAME DECADE AS THIS DISK.
35 [153]"(null)LEASE NOTE THAT CHR$AZELLE STR$ISK OFTEN
36 PRINT"FEATURES PROGRAMS WHICH WRITE GARBAGE TO
37 [153]"THE SCREEN.  LENOPY THOSE PROGRAMS TO
38 PRINT"ANOTHER SCREEN - THIS SCREEN IS READ
39 [153]"PROTECTED.
40 PRINT" [208][210][197][211][211][160][193][206][217][160][203][197][217][160][198][207][210][160][205][197][206][213] ";:POKE198,.:WAIT198,1:POKE198,.:PRINT"[147]";
42 POKE808,237
45 POKEV+17,91:POKEV+34,8:POKEV+35,15:POKEV+36,2:POKEV+24,21
46 H$="[146]----------------------------------------
50 [153]H$"SYSSTR$RIGHT$(null)(null)(null)(null)VALSINTHEN(null)CLOSECHR$ATN(null)VAL(null)(null)VALCLOSE/CLOSEABSABS*CLOSE>=<CLOSEATN(null)STR$CLOSEPEEKRIGHT$LEN/>OR^";
51 [153]"CLOSECLOSECLOSELEN(null)(null)(null)VAL(null)(null)(null)CLOSE(null)ASCCLOSE(null)ATNPEEK(null)VAL(null)CLOSEASC(null)(null)CLOSEATN(null)(null)RIGHT$(null)CLOSE>POSFREUSRCLOSECLOSECLOSECLOSE";
52 [143]  PRINT"CLOSENOTSTR$STEPCLOSE>POSFREUSRCLOSESTR$RIGHT$(null)(null)(null)(null)VALSINCLOSE(null)(null)PEEK(null)*CLOSE(null)(null)(null)(null)CHR$VAL(null)*CLOSEVAL(null)LEN^CLOSECLOSEWAIT"H$;
53 [153]"WAIT"H$;
55 [153]"CLOSEORCLOSE POKE LAST THINGS FIRST (JANITORIAL)     "H$;
56 [153]"CLOSE>CLOSE POKE EPTITUDE TEST                      "H$;
57 [153]"CLOSE=CLOSE POKE ALFREDO'S PITIFUL PITFALL          "H$;
58 [153]"CLOSE<CLOSE POKE DISK ERASER (SUBTRAC)              "H$;
59 [153]"CLOSESGNCLOSE POKE JUNK MAIL (DELAYED -- WRONG ZIP!)  "H$;
60 [153]"CLOSEINTCLOSE POKE WIN, LOSE, OR DRAW                 "H$;
61 [153]"CLOSEABSCLOSE POKE LABYRINTH 101                      "H$;
62 [153]"CLOSEUSRCLOSE POKE FOOLS GOLD                         "H$;
63 [153]"CLOSEFRECLOSE POKE RANNDUMB EVENTS (ARTICLE)          "H$;
64 [153]"CLOSEPOSCLOSE POKE FIRST THINGS LAST (EXIT)           "H$;
65 [151]198,.:[146]198,1:[161]K$:K[178][197](K$):MM[178]K:[139](K$[179]"0")[176](K$[177]"9")[167]65
70 [139](K[178]0)[176](K[178]4)[176](K[178]8)[176](K[178]9)[167]F$[178]F$(K):[137]1000
90 [153]"LOADCONTLOAD"[199](34)F$(K)[199](34)","DQ
95 [153]"RUN":[151]631,13:[151]632,13:[151]198,2
98 [151]53280,14:[151]53281,6:[151]53265,27:[128]
1000 [153]"LOAD";:[151]V[170]17,27:[159]8,DQ,8,F$
1005 [151]808,237:[158]828,8,39:A$[178]A$[170]"":I[178]ST:[153]A$:[139][194](214)[179]22[175]I[178].[167]1005
1010 EOF[178]0:[153]:[139]I[167][160]8:EOF[178]1
1015 [139]EOF[178]0[167]AG[178][187](1)
1017 [139]EOF[178]0[175]AG[179].5[167] [137] 10000
1018 [139]EOF[178]0[167] [137] 11000
1020 [153]"           (null)RESS (null)LEFT$ATN(null) KEY."
1025 [151]198,.:[146]198,1:[161]K$:[153]"LOAD";:[137]1036
1030 :
1035 [153]"LOAD";:[151]V[170]32,14:[151]V[170]33,14:[139]ST[178].[167]1005
1036 [151]V[170]17,91:[139]MM[179][177]9[167]45
1037 [159]15,DQ,15,"R0:H=H":[132]15,ER:[160]15
1038 [151]53265,27:[139]ER[179][177]63[167][128]
1039 [147]"H1",DQ
1040 [151]V[170]32,8:[151]V[170]33,2:[153]"LOADSYSLEFT$VAL(null)CLOSEVALRIGHT$(null)(null)(null)VALRIGHT$(null)! RIGHT$ DIDN'T SAY TO PRESS THE
1041 PRINT" [210][213][206]/[211][212][207][208] [146] KEY!!!  [195][193][206]'[212][160][217][207][213][160][210][197][193][196]?
1042 [153]"RIGHT$ SAID TO PRESS  (null)/(null) WAIT!!!  (null)(null)(null)CLOSESTR$(null)CLOSE(null)(null)!!
1043 PRINT"([217]OU HUMANS CAN'T DO [193][206][217][212][200][201][206][199] RIGHT!)":GOTO10030
10000 REM R/S PROMPTS
10010 P=1
10020 PRINT"       [208]RESS  [210]/[211] [146] TO CONTINUE:"
10030 POKE808,239:GOSUB 12000
10040 IFK$=CHR$(3)THEN1040
10050 IFK$<>"R"THEN10030
10060 GOSUB 12000:IFK$<>"/"THEN10030
10070 GOSUB 12000:IFK$<>"S"THEN10030
10080 POKE808,237:GOTO1035
10085 :
11000 REM GIBBERISH PROMPT
11010 P=2
11020 PRINT"    [208]RESS [[208]], [[206]], [[210][197][212][213][210][206]], OR [[217]]"
11030 POKE808,239:GOSUB 12000
11040 IFK$="P"THEN1035
11050 IFK$="N"THENPOKE53280,1:FORDL=1TO500:NEXT:POKE53280,254:GOTO11030
11060 IFK$=CHR$(13)THENGOSUB13000:GOTO11030
11070 IFK$="Y"THENPRINT"[147]":CLOSE8:GOTO42
11080 GOTO11030
11090 :
12000 REM GET KEY
12010 POKE198,0:WAIT198,1:GETK$:RETURN
12020 :
13000 REM  MAKE NOISE
13010 FORAG=1TO100:POKE54296,15:POKE54296,0:NEXT:RETURN
13020 :
59999 END
60000 D=PEEK(186):OPEN1,D,15,"I0":N$="DISPUTES GAZELLE"
60001 PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,D:END